unit Debug;

interface

uses
  Windows, Sysutils;


procedure _debug(const aFormat: string; const aArgs: array of const); overload;
procedure _debug(const sMsg:String); overload;

implementation

procedure _debug(const aFormat: string; const aArgs: array of const);
var
  Buff:String;
begin
  Buff := format(aFormat, aArgs);
  OutPutDebugString( pChar(Buff) );
end;

procedure _debug(const sMsg:String);
begin
  OutPutDebugstring( pChar(smsg) );
end;



end.
